home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / saide.arc / AUTO (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  12KB  |  229 lines
  1. 1 ONAGOTO169,170,171,172,76,169,187
  2. 2 DIMA%(23):A%(1)=1545:A%(2)=1585:A%(3)=1546:A%(4)=1586:A%(5)=1551:A%(6)=1591
  3. 3 A%(7)=1552:A%(8)=1592:A%(9)=1575:A%(10)=1615:A%(11)=1576:A%(12)=1616
  4. 4 A%(13)=1581:A%(14)=1621:A%(15)=1582:A%(16)=1622
  5. 5 POKE53265,PEEK(53265)AND239
  6. 6 POKE53280, 0:POKE53281, 0:PRINT"[147][142]";
  7. 7 PRINT"[154]WELCOMETOTHEPROGRAMMINGWORLDOF"
  8. 8 PRINT"EASEANDSIMPLICITY"
  9. 9 PRINT"[129][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]fffffffffffffffffffffffffffffff";
  10. 10 PRINT"fffffffff[150][169][175]   [162] [175]  [162][169][175][146][182] [146][181] [175] [175] "
  11. 11 PRINT"[146][183][170][180][180][146][162][169][180][146][185][187][180][146][162][169][180][170] [180] [180][146][185][187]"
  12. 12 PRINT"[175][170][180][180][180][146][184][190][180][146][180] [170] [180] [180][146][184][190]"
  13. 13 PRINT"[183][146][169] [146][169] [146][180] [183]   [165][167][146][182] [146][181] [183][146][169] [183] "
  14. 14 PRINT"[129]dddddddddddddddddddddddddddddddddddddddd[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  15. 15 PRINT"[183][183][183][183][183][183][183][183][183][154]THEULTIMATEPROGRAMMERSUTILITYPACKAGE";
  16. 16 PRINT"[156] (C) COPYRIGHT JULY 1986 - VERSION 3.1"
  17. 17 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][150][182][158][166][166][155]FREE[158][166][166][150] [146]BYSTEPHENR";
  18. 18 PRINT".GAST[150] [146][158][166][166][155]FREE[158][166][166][150][181][182][158][166][166][155]WARE[158][166][166][150] [146]&RICHARDROLLINS[150] [146][158][166][166][155]WAR";
  19. 19 PRINT"E[158][166][166][150][181][153][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][165]*[159]ALLDOSWEDGECOMMAND";
  20. 20 PRINT"SMADEFRIENDLY![153][170][165]*[159]ALLTINYAIDPLUSCOMMANDSANDMORE![153][170][180]*[159]ALLSUP";
  21. 21 PRINT"ERDOSCOMMANDSANDMUCHMORE![153][170][165]-------[155]INADDITIONIFSELECTED------";
  22. 22 PRINT"--[153][170][165]*[159]CHOICEOFMLMONITORINTWOLOCATIONS[153][170][165]*[159]ANEASYTOUSELOWRE";
  23. 23 PRINT"SSCREENEDITOR[153][170][165]*[159]TOTALLYCOMPATIBLEWITHPALASSEMBLER[153][170][184][184][184][184][184][184][184][184][184][184][184]";
  24. 24 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]PRESSANYKEYTOCONTINUE";
  25. 25 POKE53265,PEEK(53265)OR16
  26. 26 GETW$
  27. 27 PO=PEEK(1545):PO=PO+128:IFPO>256THENPO=PO-256
  28. 28 FORX=1TO16:POKEA%(X),PO:NEXTX
  29. 29 IFW$=""THEN26
  30. 30 POKE53265,PEEK(53265)AND239
  31. 31 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  32. 32 PRINT"[155][176]``````````````````````````````````````[174]}";
  33. 33 PRINT"}}[154]***fREEWARE***[155]}}";
  34. 34 PRINT"}}[154]-fREEWAREISANATTEMPTTOPROVIDETHE[155]}}[154]HIGHEST";
  35. 35 PRINT"QUALITYSOFTWAREATAPRICE[155]}}[154]THATISREASONABLEANDFAIR.pROGRAMS[155]";
  36. 36 PRINT"}}[154]MAYBECOPIEDANDDISTRIBUTEDFREELY.[155]}}[154]tHEYMAYNOTBESOLDFOR";
  37. 37 PRINT"PROFIT.iF[155]}}[154]YOUFINDTHEPRODUCTUSEFUL,SENDUS[155]}}[154]SOMEMONEY.iF";
  38. 38 PRINT"NOT,PASSITALONGTO[155]}}[154]ANOTHERPROGRAMMER.wETHINKTHATTHE[155]}}[154]EV";
  39. 39 PRINT"OLVINGPROGRAMKNOWNASsUPERaIDE[155]}}[154]ISTHEFINESTPROGRAMMINGUTILIT";
  40. 40 PRINT"YYOU[155][221][221][154]CANGETATANYPRICE.[193]TITSPRESENT[155][221][221][154]POINTOFDEVELOPME";
  41. 41 PRINT"NT,FOURANDONE[155]}}[154]HALFYEARSOFEFFORTAREINVOLVED.[155]}}[158]wEWELCO";
  42. 42 PRINT"MEYOURCOMMENTS[150](&DONATIONS)[155]}}[154]saseFORUPDATEINFOOR217-352-9681";
  43. 43 PRINT"[155]}}[159]-sENDCOMMENTS,saseORDONATIONSTO:[155]}}[159]sTEPHENr.gAST";
  44. 44 PRINT"[155]}}[159]1714pARKSIDEtERRACE[155]}}[159]cHAMPAIG";
  45. 45 PRINT"N,il61821-5456[155]}[173]``````````````````````````````````````[189]";
  46. 46 PRINT"[154][208]RESSANYKEYTOCONTINUE";
  47. 47 POKE53265,PEEK(53265)OR16:POKE198,0
  48. 48 GETW$:IFW$=""THEN48
  49. 49 POKE53265,PEEK(53265)AND239
  50. 50 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  51. 51 PRINT"[153][176]``````````````````````````````````````[174]}pLEASESELECTTHEOPTIONSYO";
  52. 52 PRINT"UWISH:}}[159][176]`[178]```````````````````````````[178]`[174][153]}}[159]}}m.l.mOTITOR";
  53. 53 PRINT"AT50135/$C3D7}N}[153]}}[159][171]`{```````````````````````````{`[179][153]}}[159]}}m";
  54. 54 PRINT".l.mONITORAT29900/$74CC}N}[153]}}[159][171]`{```````````````````````````{`[179]";
  55. 55 PRINT"[153][221][221][159][221][221][211]CREEN[197]DITOR$C000 - $C43E[221]N[221][153][221][221][159][173][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  56. 56 PRINT"````````[177]`[189][153]}}[158]pLEASEMAKEYOURCHOICESNOW[153]}}[150]tOGGLEyOUR";
  57. 57 PRINT"pREFERENCEwITHN&Y[153]}}[155]pRESSRETURNTOENTERYOURSELECTION[153]}[173]``";
  58. 58 PRINT"````````````````````````````````````[189][176]``````````````````````````````````";
  59. 59 PRINT"````[174]}[159][176]`[178]```````````````````````````[178]`[174][156]r[153]}}[159]}}ramhOOKS($0";
  60. 60 PRINT"2A7-$02FF)}y}[156]E[153]}}[159][171]`{```````````````````````````{`[179][156]S[153]}}[159]}}uN";
  61. 61 PRINT"DERbasic($A000-$BFFF)}y}[156]I[153]}}[159][171]`{```````````````````````````{`[179][156]";
  62. 62 PRINT"D[153]}}[159]}}uNDERkernal($E000-$FFFF)}y}[156]E[153]}}[159][173]`[177]`````````````````";
  63. 63 PRINT"``````````[177]`[189][156]N[153]}}[156]tHESEAREINITIALLYALWAYSSELECTEDT[153]}[173]```````````";
  64. 64 PRINT"```````````````````````````[189]"
  65. 65 A$="[205].[204]. [205]ONITOR AT 50135/$C3D7":W2$="N":COLUMN=4:ROW=3
  66. 66 GOSUB134
  67. 67 IFM=1THENO(1)=1:GOTO150
  68. 68 A$="[205].[204]. [205]ONITOR AT 29900/$74CC":W2$="N":COLUMN=4:ROW=5
  69. 69 M=0:GOSUB134
  70. 70 IFM=1THENO(2)=1:GOSUB158
  71. 71 A$="[211]CREEN [197]DITOR $C000 - $C43E":W2$="N":COLUMN=4:ROW=7
  72. 72 M=0:GOSUB134
  73. 73 IFM=1THENO(3)=1
  74. 74 IFO(2)=1THENA=5:A$="[205].[204]. [205]ONITOR AT 29900/$74CC":W2$="_":SG=1
  75. 75 IFO(2)=1THENCOLUMN=4:ROW=5:GOSUB146:GOSUB164:LOAD"XMON.74CC-8003",8,1
  76. 76 IFO(2)=1THENPOKE51,204:POKE55,204:POKE52,116:POKE56,116:GOSUB148
  77. 77 IFO(3)=1THENA=6:A$="[211]CREEN [197]DITOR $C000 - $C43E":W2$="_"
  78. 78 IFO(3)=1ANDSG=0THENGOSUB164
  79. 79 IFO(3)=1THENCOLUMN=4:ROW=7:GOSUB146:LOAD"EDIT.C000-C43E",8,1
  80. 80 IFO(2)=0ANDO(3)=0THENGOSUB164:GOTO173
  81. 81 GOTO169
  82. 82 IFO(1)=1THENPOKE49101,33:POKE49133,191:POKE48978,215:POKE48979,195
  83. 83 IFO(2)=1THENPOKE49101,33:POKE49133,191:POKE48978,204:POKE48979,116
  84. 84 IFO(3)=1THENPOKE49089,159:POKE49121,190
  85. 85 SYS930:POKE53265,PEEK(53265)AND239:POKE808,225
  86. 86 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  87. 87 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221][158]*********[150][215]EDGE[195]OMMANDS[158]";
  88. 88 PRINT"********[153][221][171][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159]@[153][221][154][196]ISK[211]TATUS";
  89. 89 PRINT"[153][221][159]*[195][200][153][221][154]/[212]HIS/TO[212]HAT/[153][221][221][159]@[195][153][221][154][DR]:[206][197][215]=[207][195]OPY[153][221][159]*[193][213][153][221][154]10,10[193]UTO#";
  90. 90 PRINT"[153]}}[159]@i[153]}[154][DR]iNITIALIZE[153]}[159]*fi[153]}[154].fINDtHIS.,10-[153]}}[159]@n[153]}[154][DR]:nM,idnE";
  91. 91 PRINT"W[153][221][159]*[196][197][153][221][154]-500[196]ELETE[153][221][221][159]@[209][153][221][154][203]ILLTHE[215]EDGE[153][221][159]*[193][208][146][153][221][154][[206][193][205][197]][193]PPEND";
  92. 92 PRINT"[153][221][221][159]@[210][153][221][154][DR]:[206]=[207][210]ENAME[153][221][159]*[206][213][153][221][154]10,10[210]ENUMBER[153][221][221][159]@[211][146][153][221][154][DR]:[206]M[211]CRA";
  93. 93 PRINT"TCH[153][171]```[177]```````````````[179]}[159]@$[153]}[154][DR]:dIRECTORY[153]}[159]^^^a sPACE must BE [146][153]";
  94. 94 PRINT"[221][221][159]@#[153][221][154][DR][195]HANGEDR#[153][221][159]PLACED AFTER THESE [146][153][221][221][159]@[212][146][153][221][154][DR]:[212]RANSFER";
  95. 95 PRINT"[153][171]```````````````````[179]}[159]@d[153]}[154][DR]=[DR]bACKUP[153]}[150][182][158][166][166][166][155]sUPERaIDE[158][166][166][166][166][150][181][153]";
  96. 96 PRINT"[221][221][159]@[214][153][221][154][DR] [214]ALIDATE  [153][221][129][208]ROGRAMMING[213]TILITY[153][221][221][159]\[146][153][221][154][[206]M][196]ISK[204]ISTER[153][171][192]";
  97. 97 PRINT"``````````````````[179]}[159]&[146][153]}[154][nM]lOADaDDR[153]}[159][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][153]}}[159]/";
  98. 98 PRINT"[146][153]}[154][nM]basicload[153]}[159]tRUE PARTIAL RENUM-[146][153]}}[159]%[146][153]}[154][nM]mllOAD[153]}";
  99. 99 PRINT"[159]BERING IS POSSIBLE![146][153]}}[159]^[146][153]}[154][nM]lOAD&rUN[153]}[159]*NU 100,2,100-200  [146][153]";
  100. 100 PRINT"}}[159]_[146][153]}[154][nM]basicsave[153]}[159]oUT OF RANGE CHECK![146][153]}[171]``[177]```````````````[189]";
  101. 101 PRINT"[159]```````````````````[146][153]}}[159]hIGHLIGHTED ITEMS CAN BE USED TO THE  [146][153]}}[159]LE";
  102. 102 PRINT"FT OF THE BLOCK COUNT ON DIRECTORIES[146][153]}[173]````````````````````````````````";
  103. 103 PRINT"[192][192][192][192][192][192]";
  104. 104 POKE2023,125:POKE56295,13:POKE53265,PEEK(53265)OR16:SYS849
  105. 105 GOSUB127
  106. 106 POKE53265,PEEK(53265)AND239
  107. 107 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  108. 108 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221][158]******** [150][210][197][211][212][207][210][197] [203]EY [195]OMMAND";
  109. 109 PRINT"S [158]********[153][221][171][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][195][153][221][154][195]HANGE COLOR";
  110. 110 PRINT"S  [153][221][159][191][193] [153][221][154][211]CR.[197]DITOR[OPT][153][221][221][159]  [153][221][154][195]=CHAR  [197]=EDGE [153][221][159][191][204] [153][221][154][196]OUBLE [211]PACE";
  111. 111 PRINT"   [153][221][221][159]  [153][221][154][194]=BACKGROUND   [153][221][159][191]\ [153][221][154][214]IEW [210]EL. [198]ILE [153][221][221][159][191][208][153][221][154][208]RINTER [207]N  ";
  112. 112 PRINT"   [153][221][159][191]^ [153][221][154][211]CROLLER [212]OGGLE[153][221][221][159][191][207][153][221][154][208]RINTER [207]FF    [153][221][159][191]@ [153][221][154][194][193][211][201][195] [198]REE [210]";
  113. 113 PRINT"[193][205] [153][221][221][159][191][206][153][221][154][206]UMBER [195]ONV.   [153][221][159][191]_ [153][221][154][211][207][214] [208]OINTER    [153][221][221][159][191][196][153][221][154][211]CREEN [196]UMP ";
  114. 114 PRINT"   [153][171][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][200][153][221][154][200]ELP [211]CREEN #1 [153][221][159]*****[198]REEWARE******[153][221][221]";
  115. 115 PRINT"[159][191][213][153][221][154][200]ELP [211]CREEN #2 [153][221][159]THE LOGICAL CHOICE![153][221][221][159][191][210][153][221][154][210]EPEAT [212]OGGLE  [153][171][192][192][192]";
  116. 116 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][203][153][221][154][211]YSTEM [210]ESET   [153][221][150][182][158][166][166][166][155][211]UPER [193]IDE[158][166][166][166][166][150][181][153][221][221][159][191][211][153]";
  117. 117 PRINT"[221][154][211]TART & [197]ND    [153][221][129][211].[199]AST -- [210].[210]OLLINS[153][221][221][159][191][212][153][221][154][212]RACE [207]N       [153][171][192][192][192][192][192][192][192]";
  118. 118 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][216][153][221][154][212]RACE [207]FF      [153][221][159][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][153][221][221][159][191][214][153][221][154][204]IST [214]";
  119. 119 PRINT"ARIABLES [153][221][159] [205]ANY [210][197][211][212][207][210][197] KEY  [146][153][221][221][159][191][201][153][221][154][213]NNEW          [153][221][159] FUNCTIONS ";
  120. 120 PRINT"CAN BE  [146][153][221][221][159][191][198][153][221][154][198]UNCTION [203]EYS  [153][221][159] EXITED USING THE  [146][153][221][221][159][191][205][153][221][154][205][204] [205]ON";
  121. 121 PRINT"ITOR[OPT][153]}[159] return BUTTON.    [146][153]}[171]``[177]```````````````[189][159]```````````````";
  122. 122 PRINT"````[146][153]}}[159]^ a [191] SYMBOL IN THIS COLUMN REPRESENTS[146][153]}}[159]A restore KEY PRES";
  123. 123 PRINT"S BEFORE THE LETTER.[146][153][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  124. 124 POKE2023,125:POKE56295,13:POKE53265,PEEK(53265)OR16:SYS857:SYS883:POKE808,237
  125. 125 GOSUB127
  126. 126 GOTO189
  127. 127 POKE198,0
  128. 128 GETW$:REM
  129. 129 PO=PEEK(1565)+128:IFPO>256THENPO=PO-256
  130. 130 FORX=1565TO1567:POKEX,PO:NEXTX
  131. 131 FORX=1578TO1581:POKEX,PO:NEXTX
  132. 132 IFW$=""THEN128
  133. 133 RETURN
  134. 134 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221] [221][158]"A$"[159][221][158]"W2$"[159][221][158]":POKE198,0
  135. 135 POKE53265,PEEK(53265)OR16
  136. 136 POKE211,COLUMN:POKE214,ROW:SYS58732
  137. 137 IFC=0THENPRINT""W2$
  138. 138 IFC=1THENPRINT""W2$"[146]"
  139. 139 C=C+1:IFC=2THENC=0
  140. 140 GETW$:IFW$<>"Y"ANDW$<>"N"ANDW$<>CHR$(13)THEN136
  141. 141 IFW$="Y"THENW2$=W$:GOTO136
  142. 142 IFW$="N"THENW2$=W$:GOTO136
  143. 143 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221] [221]"A$"[221]"W2$"[221]"
  144. 144 IFW2$="Y"THENM=1
  145. 145 RETURN
  146. 146 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221] [221][158]"A$"[159][221][158]"W2$"[159][221]"
  147. 147 RETURN
  148. 148 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221][158][186][159][221][156]"A$"[159][221] [221]"
  149. 149 RETURN
  150. 150 POKE211,4:POKE214,9:SYS58732
  151. 151 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  152. 152 PRINT"   [221][215][193][210][206][201][206][199]! [198]ASTLOADERS MAY CRASH![221]"
  153. 153 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
  154. 154 FORX=1TO2000:NEXT
  155. 155 GOSUB164
  156. 156 W2$="_":GOSUB146
  157. 157 A=1:LOAD"XMON.C3D7-CEFE",8,1
  158. 158 POKE211,4:POKE214,9:SYS58732
  159. 159 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  160. 160 PRINT"   [221][206]OTE: [201]F USING, LOAD [208][193][204] FIRST![221]"
  161. 161 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
  162. 162 RETURN
  163. 163 STOP
  164. 164 POKE211,4:POKE214,9:SYS58732
  165. 165 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  166. 166 PRINT"   [221][155]--------[158][204]OADING [205]ODULES[155]--------[152][221]"
  167. 167 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
  168. 168 RETURN
  169. 169 GOSUB148:GOTO173
  170. 170 GOSUB148:GOTO176
  171. 171 GOSUB148:GOTO179
  172. 172 GOSUB148:GOTO182
  173. 173 A$="[210][193][205] [200]OOKS    ($02A7-$02FF) ":COLUMN=4:ROW=15:W2$="_"
  174. 174 GOSUB146
  175. 175 A=7:LOAD"1",8,1
  176. 176 A$="[213]NDER [194][193][211][201][195]  ($A000-$BFFF) ":COLUMN=4:ROW=17:W2$="_"
  177. 177 GOSUB146
  178. 178 A=3:LOAD"2",8,1
  179. 179 A$="[213]NDER [203][197][210][206][193][204] ($E000-$FFFF) ":COLUMN=4:ROW=19:W2$="_"
  180. 180 GOSUB146
  181. 181 A=4:LOAD"3",8,1
  182. 182 POKE211,4:POKE214,9:SYS58732
  183. 183 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  184. 184 PRINT"   [221][155]-----------[158][195]OMPLETE[155]------------[152][221]"
  185. 185 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
  186. 186 FORX=1TO2000:NEXT:GOTO82
  187. 187 A=2:LOAD"SCREEN.MOVE",8,1
  188. 188 SYS703
  189. 189 POKE53265,PEEK(53265)AND239
  190. 190 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  191. 191 PRINT"[159][176]``````````````````````````````````````[174]}wHENYOUBACKUPTHISDISK,BE";
  192. 192 PRINT"sureTO}}BACKUPbothSIDES!cOMPLETESOURCE}}CODEFILESAREINCLUDE";
  193. 193 PRINT"DONTHEREVERSE}}SIDEOFTHISDISK.aLLSOURCECODEIS}}DONEINpalFO";
  194. 194 PRINT"RMAT.cOMMENTSAREMADE}}INASMUCHDETAILASSPACEWILLALLOW.}[171]``````";
  195. 195 PRINT"````````````````````````````````[179]}[154]cURSOR[159]dOyOUwISHtO:[154]rETUR";
  196. 196 PRINT"N[159]}}[154]tOtO[159]}}[154]sELECT[159] eXIT THE p";
  197. 197 PRINT"ROGRAM  [146][154]cHOOSE[159]}}}}[158][166][150][161][158]sUPER";
  198. 198 PRINT"[159]sEEdOCUMENTATION[158]aIDE[150][180][146][158][166][159]}}[158][166]";
  199. 199 PRINT"[166][159]}}[158][166][166][166][166][166][166][166][166][166][166][150][161]hAPPYpROGRAMMING[180][146][158][166][166][166][166][166][166][166][166][166][159]}}";
  200. 200 PRINT"}[171]``````````````````````````````````````[179]}iFTHERE";
  201. 201 PRINT"ISENOUGHINTEREST,WEWILL}}SUPPLYHARDCOPYDOCUMENTATIONFORTHE}}";
  202. 202 PRINT"UTILITYFOR$20.tHISWILLINCLUDENOT}}ONLYDETAILEDDESCRIPTIONSOFCO";
  203. 203 PRINT"MMANDS}}BUTALSOTECHNIQUESONHOWTOBESTUSE}}sUPERaIDESABILITIES";
  204. 204 PRINT"TOMAKEYOUR}}PROGRAMMINGTASKANEASIERONE......sg}[173]````````````````";
  205. 205 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  206. 206 POKE2023,125:POKE56295,3
  207. 207 POKE53265,PEEK(53265)OR16
  208. 208 A%(1)=1505:A%(2)=1545:A%(3)=1585:A%(4)=1586:A%(5)=1587:A%(6)=1588:A%(7)=1589
  209. 209 A%(8)=1590:A%(9)=1591:A%(10)=1592:A%(11)=1593:A%(12)=1594:A%(13)=1614
  210. 210 A%(14)=1615:A%(15)=1616:A%(16)=1617:A%(17)=1618:A%(18)=1619:A%(19)=1620
  211. 211 A%(20)=1621:A%(21)=1622:A%(22)=1582:A%(23)=1542:CH=1
  212. 212 A$=" [197]XIT THE [208]ROGRAM  ":B$=" [211]EE [196]OCUMENTATION "
  213. 213 GETW$
  214. 214 PO=PEEK(1505):PO=PO+128:IFPO>256THENPO=PO-256
  215. 215 FORX=1TO23:POKEA%(X),PO:NEXT
  216. 216 IFW$=""ORW$="[157]"ORW$="[145]"ORW$=""THENGOSUB224
  217. 217 IFW$<>CHR$(13)THEN213
  218. 218 IFCH=0THENGOTO220
  219. 219 PRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  220. 220 POKE211,1:POKE214,8:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  221. 221 PRINT"[221][155]----[158][204]OADING [196]OCUMENTATION [196]RIVER[155]----[152][221]";
  222. 222 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  223. 223 LOAD"DOC.DRIVER",8
  224. 224 IFCH=0THENPOKE211,11:POKE214,10:SYS58732:PRINT""A$
  225. 225 IFCH=0THENPOKE211,11:POKE214,12:SYS58732:PRINT"[146]"B$:CH=1:GOTO228
  226. 226 IFCH=1THENPOKE211,11:POKE214,12:SYS58732:PRINT""B$
  227. 227 IFCH=1THENPOKE211,11:POKE214,10:SYS58732:PRINT"[146]"A$:CH=0
  228. 228 RETURN
  229.